@@ -2,27 +2,41 @@
use strict;
use warnings;
-use Module::Build;
+use Module::Build 0.3601;
-my $build = Module::Build->new(
- module_name => 'MooseX::Has::Sugar',
- license => 'perl',
- dist_abstract => "Sugar\ Syntax\ for\ moose\ \'has\'\ fields",
- dist_name => "MooseX\-Has\-Sugar",
- dist_author => [
-"Kent\ Fredric\ \<kentnl\ at\ cpan\.org\>",
+
+my %module_build_args = (
+ 'build_requires' => {
+ 'File::Find' => '0',
+ 'File::Temp' => '0',
+ 'FindBin' => '0',
+ 'Module::Build' => '0.3601',
+ 'Moose' => '0',
+ 'Test::Exception' => '0',
+ 'Test::More' => '0.88',
+ 'namespace::autoclean' => '0'
+ },
+ 'configure_requires' => {
+ 'Module::Build' => '0.3601'
+ },
+ 'dist_abstract' => 'Sugar Syntax for moose \'has\' fields',
+ 'dist_author' => [
+ 'Kent Fredric <kentnl at cpan.org>'
],
- requires => {
- "MooseX::Types::Moose" => '0',
- "Test::Exception" => '0',
- "namespace::autoclean" => '0',
- "Sub::Exporter" => '0',
- "Carp" => '0',
- "Test::More" => '0',
- "MooseX::Types" => '0.10',
- "Moose" => '0.84',
+ 'dist_name' => 'MooseX-Has-Sugar',
+ 'dist_version' => '0.05044303',
+ 'license' => 'perl',
+ 'module_name' => 'MooseX::Has::Sugar',
+ 'recommends' => {},
+ 'recursive_test_files' => 1,
+ 'requires' => {
+ 'Carp' => '0',
+ 'Sub::Exporter' => '0'
},
- script_files => [ qw() ],
+ 'script_files' => []
);
+
+my $build = Module::Build->new(%module_build_args);
+
$build->create_build_script;
@@ -1,5 +1,11 @@
Revision history for MooseX-Has-Sugar
+0.05044303 2010-07-24 22:03:50 Pacific/Auckland
+ Migrate to @KENTNL Dzil.
+ Rework t/ dirs.
+ Drop depend on MX::Types in tests.
+ Drop accidental dep on Test::Kwalitee
+
0.0405 2009-12-04 22:20:43 Pacific/Auckland
Toolkit upgrade & rebuild.
Testsuite cleanup.
@@ -1,4 +1,4 @@
-This software is copyright (c) 2009 by Kent Fredric.
+This software is copyright (c) 2010 by Kent Fredric.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@ b) the "Artistic License"
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2009 by Kent Fredric.
+This software is Copyright (c) 2010 by Kent Fredric.
This is free software, licensed under:
@@ -270,7 +270,7 @@ That's all there is to it!
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2009 by Kent Fredric.
+This software is Copyright (c) 2010 by Kent Fredric.
This is free software, licensed under:
@@ -11,27 +11,29 @@ lib/MooseX/Has/Sugar/Minimal.pm
lib/MooseX/Has/Sugar/Saccharin.pm
perlcriticrc
t/00-compile.t
+t/000-report-versions-tiny.t
t/04_values.t
-t/04_values/AMinimal.pm
-t/04_values/BDeclare.pm
-t/04_values/CDeclareRo.pm
-t/04_values/DEverything.pm
-t/04_values/EMixed.pm
-t/04_values/TestCant.pm
t/05_is.t
-t/05_is/TestPackage.pm
t/06_attr_required.t
-t/06_attr_required/TestPackage.pm
t/07_attr_lazy_build.t
-t/07_attr_lazy_build/TestPackage.pm
t/08_saccharin.t
-t/08_saccharin/TestPackage.pm
t/09_saccharin.t
-t/09_saccharin/TestPackage.pm
-t/author-critic.t
-t/author-kwalitee.t
-t/lib/TestClean.pm
-t/release-meta-yaml.t
+t/lib/T4Values/AMinimal.pm
+t/lib/T4Values/BDeclare.pm
+t/lib/T4Values/CDeclareRo.pm
+t/lib/T4Values/DEverything.pm
+t/lib/T4Values/EMixed.pm
+t/lib/T4Values/TestCant.pm
+t/lib/T5Is/TestPackage.pm
+t/lib/T6AttrRequired/TestPackage.pm
+t/lib/T7AttrLazyBuild/TestPackage.pm
+t/lib/T8Saccharin/TestPackage.pm
+t/lib/T9Saccharin/TestPackage.pm
+t/release-critic.t
+t/release-distmeta.t
+t/release-eol.t
+t/release-kwalitee.t
t/release-pod-coverage.t
t/release-pod-syntax.t
-weaver.ini
\ No newline at end of file
+t/release-portability.t
+weaver.ini
@@ -1,48 +1,308 @@
{
- "resources" : {
- "repository" : "http://github.com/kentfredric/MooseX-Has-Sugar"
- },
- "meta-spec" : {
- "version" : 1.4,
- "url" : "http://module-build.sourceforge.net/META-spec-v1.4.html"
- },
- "generated_by" : "Dist::Zilla version 1.093280",
- "version" : "0.0405",
- "name" : "MooseX-Has-Sugar",
+ "abstract" : "Sugar Syntax for moose 'has' fields",
"author" : [
"Kent Fredric <kentnl at cpan.org>"
],
- "license" : "perl",
- "build_requires" : {
- "Module::Build" : "0.35"
+ "dynamic_config" : 0,
+ "generated_by" : "Dist::Zilla version 4.101900, CPAN::Meta::Converter version 2.101670",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "MooseX-Has-Sugar",
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "Module::Build" : "0.3601"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "Module::Build" : "0.3601"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Carp" : 0,
+ "Sub::Exporter" : 0
+ }
+ },
+ "test" : {
+ "requires" : {
+ "File::Find" : 0,
+ "File::Temp" : 0,
+ "FindBin" : 0,
+ "Moose" : 0,
+ "Test::Exception" : 0,
+ "Test::More" : "0.88",
+ "namespace::autoclean" : 0
+ }
+ }
},
"provides" : {
"MooseX::Has::Sugar" : {
- "version" : "0.0405",
- "file" : "lib/MooseX/Has/Sugar.pm"
+ "file" : "lib/MooseX/Has/Sugar.pm",
+ "version" : "0.05044303"
},
"MooseX::Has::Sugar::Minimal" : {
- "version" : "0.0405",
- "file" : "lib/MooseX/Has/Sugar/Minimal.pm"
+ "file" : "lib/MooseX/Has/Sugar/Minimal.pm",
+ "version" : "0.05044303"
},
"MooseX::Has::Sugar::Saccharin" : {
- "version" : "0.0405",
- "file" : "lib/MooseX/Has/Sugar/Saccharin.pm"
+ "file" : "lib/MooseX/Has/Sugar/Saccharin.pm",
+ "version" : "0.05044303"
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "homepage" : "http://github.com/kentfredric/MooseX-Has-Sugar/tree",
+ "repository" : {
+ "type" : "git",
+ "url" : "git://github.com/kentfredric/MooseX-Has-Sugar.git",
+ "web" : "http://github.com/kentfredric/MooseX-Has-Sugar/tree"
}
},
- "requires" : {
- "MooseX::Types::Moose" : "0",
- "Test::Exception" : "0",
- "namespace::autoclean" : "0",
- "Sub::Exporter" : "0",
- "Carp" : "0",
- "Test::More" : "0",
- "MooseX::Types" : "0.10",
- "Moose" : "0.84"
+ "version" : "0.05044303",
+ "x_BuiltWith" : {
+ "modules" : {
+ "Carp" : "1.16",
+ "File::Find" : "1.15",
+ "File::Temp" : "0.22",
+ "FindBin" : "1.50",
+ "Module::Build" : "0.3607",
+ "Moose" : "1.08",
+ "Sub::Exporter" : "0.982",
+ "Test::Exception" : "0.29",
+ "Test::More" : "0.94",
+ "namespace::autoclean" : "0.11"
+ },
+ "perl" : "5.012001",
+ "platform" : "linux"
},
- "abstract" : "Sugar Syntax for moose 'has' fields",
- "configure_requires" : {
- "Module::Build" : "0.35"
+ "x_Dist_Zilla" : {
+ "plugins" : [
+ {
+ "class" : "Dist::Zilla::Plugin::AutoVersion::Relative",
+ "name" : "@KENTNL/AutoVersion::Relative",
+ "version" : "0.01027903"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::GatherDir",
+ "name" : "@KENTNL/GatherDir",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaConfig",
+ "name" : "@KENTNL/MetaConfig",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PruneCruft",
+ "name" : "@KENTNL/PruneCruft",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::GithubMeta",
+ "name" : "@KENTNL/GithubMeta",
+ "version" : "0.10"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::License",
+ "name" : "@KENTNL/License",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PkgVersion",
+ "name" : "@KENTNL/PkgVersion",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PodWeaver",
+ "name" : "@KENTNL/PodWeaver",
+ "version" : "3.101640"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaProvides::Package",
+ "name" : "@KENTNL/MetaProvides::Package",
+ "version" : "1.10027802"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaJSON",
+ "name" : "@KENTNL/MetaJSON",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaYAML",
+ "name" : "@KENTNL/MetaYAML",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ModuleBuild",
+ "name" : "@KENTNL/ModuleBuild",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ReadmeFromPod",
+ "name" : "@KENTNL/ReadmeFromPod",
+ "version" : "0.12"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ManifestSkip",
+ "name" : "@KENTNL/ManifestSkip",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Manifest",
+ "name" : "@KENTNL/Manifest",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::AutoPrereq",
+ "name" : "@KENTNL/AutoPrereq",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaData::BuiltWith",
+ "name" : "@KENTNL/MetaData::BuiltWith",
+ "version" : "0.01000216"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::CompileTests",
+ "name" : "@KENTNL/CompileTests",
+ "version" : "1.101800"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaTests",
+ "name" : "@KENTNL/MetaTests",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PodCoverageTests",
+ "name" : "@KENTNL/PodCoverageTests",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PodSyntaxTests",
+ "name" : "@KENTNL/PodSyntaxTests",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ReportVersions::Tiny",
+ "name" : "@KENTNL/ReportVersions::Tiny",
+ "version" : "1.01"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::KwaliteeTests",
+ "name" : "@KENTNL/KwaliteeTests",
+ "version" : "1.101420"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PortabilityTests",
+ "name" : "@KENTNL/PortabilityTests",
+ "version" : "1.101420"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::EOLTests",
+ "name" : "@KENTNL/EOLTests",
+ "version" : "0.02"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ExtraTests",
+ "name" : "@KENTNL/ExtraTests",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::TestRelease",
+ "name" : "@KENTNL/TestRelease",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ConfirmRelease",
+ "name" : "@KENTNL/ConfirmRelease",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Check",
+ "name" : "@KENTNL/Git::Check",
+ "version" : "1.102040"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::NextRelease",
+ "name" : "@KENTNL/NextRelease",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Tag",
+ "name" : "@KENTNL/Git::Tag/tag_master",
+ "version" : "1.102040"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Commit",
+ "name" : "@KENTNL/Git::Commit",
+ "version" : "1.102040"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::CommitBuild",
+ "name" : "@KENTNL/Git::CommitBuild",
+ "version" : "1.102040"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Tag",
+ "name" : "@KENTNL/Git::Tag/tag_release",
+ "version" : "1.102040"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::UploadToCPAN",
+ "name" : "@KENTNL/UploadToCPAN",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Twitter",
+ "name" : "@KENTNL/Twitter",
+ "version" : "0.008"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Prereq",
+ "config" : {
+ "Dist::Zilla::Plugin::Prereqs" : {
+ "phase" : "runtime",
+ "type" : "requires"
+ }
+ },
+ "name" : "Prereq",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":InstallModules",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":TestFiles",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":ExecFiles",
+ "version" : "4.101900"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":ShareFiles",
+ "version" : "4.101900"
+ }
+ ],
+ "zilla" : {
+ "class" : "Dist::Zilla::Dist::Builder",
+ "config" : {
+ "is_trial" : 0
+ },
+ "version" : "4.101900"
+ }
}
}
@@ -3,10 +3,18 @@ abstract: "Sugar Syntax for moose 'has' fields"
author:
- 'Kent Fredric <kentnl at cpan.org>'
build_requires:
- Module::Build: 0.35
+ File::Find: 0
+ File::Temp: 0
+ FindBin: 0
+ Module::Build: 0.3601
+ Moose: 0
+ Test::Exception: 0
+ Test::More: 0.88
+ namespace::autoclean: 0
configure_requires:
- Module::Build: 0.35
-generated_by: 'Dist::Zilla version 1.093280'
+ Module::Build: 0.3601
+dynamic_config: 0
+generated_by: 'Dist::Zilla version 4.101900, CPAN::Meta::Converter version 2.101670'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -15,22 +23,206 @@ name: MooseX-Has-Sugar
provides:
MooseX::Has::Sugar:
file: lib/MooseX/Has/Sugar.pm
- version: 0.0405
+ version: 0.05044303
MooseX::Has::Sugar::Minimal:
file: lib/MooseX/Has/Sugar/Minimal.pm
- version: 0.0405
+ version: 0.05044303
MooseX::Has::Sugar::Saccharin:
file: lib/MooseX/Has/Sugar/Saccharin.pm
- version: 0.0405
+ version: 0.05044303
requires:
Carp: 0
- Moose: 0.84
- MooseX::Types: 0.10
- MooseX::Types::Moose: 0
Sub::Exporter: 0
- Test::Exception: 0
- Test::More: 0
- namespace::autoclean: 0
resources:
- repository: http://github.com/kentfredric/MooseX-Has-Sugar
-version: 0.0405
+ homepage: http://github.com/kentfredric/MooseX-Has-Sugar/tree
+ repository: git://github.com/kentfredric/MooseX-Has-Sugar.git
+version: 0.05044303
+x_BuiltWith:
+ modules:
+ Carp: 1.16
+ File::Find: 1.15
+ File::Temp: 0.22
+ FindBin: 1.50
+ Module::Build: 0.3607
+ Moose: 1.08
+ Sub::Exporter: 0.982
+ Test::Exception: 0.29
+ Test::More: 0.94
+ namespace::autoclean: 0.11
+ perl: 5.012001
+ platform: linux
+x_Dist_Zilla:
+ plugins:
+ -
+ class: Dist::Zilla::Plugin::AutoVersion::Relative
+ name: '@KENTNL/AutoVersion::Relative'
+ version: 0.01027903
+ -
+ class: Dist::Zilla::Plugin::GatherDir
+ name: '@KENTNL/GatherDir'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::MetaConfig
+ name: '@KENTNL/MetaConfig'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::PruneCruft
+ name: '@KENTNL/PruneCruft'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::GithubMeta
+ name: '@KENTNL/GithubMeta'
+ version: 0.10
+ -
+ class: Dist::Zilla::Plugin::License
+ name: '@KENTNL/License'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::PkgVersion
+ name: '@KENTNL/PkgVersion'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::PodWeaver
+ name: '@KENTNL/PodWeaver'
+ version: 3.101640
+ -
+ class: Dist::Zilla::Plugin::MetaProvides::Package
+ name: '@KENTNL/MetaProvides::Package'
+ version: 1.10027802
+ -
+ class: Dist::Zilla::Plugin::MetaJSON
+ name: '@KENTNL/MetaJSON'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::MetaYAML
+ name: '@KENTNL/MetaYAML'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::ModuleBuild
+ name: '@KENTNL/ModuleBuild'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::ReadmeFromPod
+ name: '@KENTNL/ReadmeFromPod'
+ version: 0.12
+ -
+ class: Dist::Zilla::Plugin::ManifestSkip
+ name: '@KENTNL/ManifestSkip'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::Manifest
+ name: '@KENTNL/Manifest'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::AutoPrereq
+ name: '@KENTNL/AutoPrereq'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::MetaData::BuiltWith
+ name: '@KENTNL/MetaData::BuiltWith'
+ version: 0.01000216
+ -
+ class: Dist::Zilla::Plugin::CompileTests
+ name: '@KENTNL/CompileTests'
+ version: 1.101800
+ -
+ class: Dist::Zilla::Plugin::MetaTests
+ name: '@KENTNL/MetaTests'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::PodCoverageTests
+ name: '@KENTNL/PodCoverageTests'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::PodSyntaxTests
+ name: '@KENTNL/PodSyntaxTests'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::ReportVersions::Tiny
+ name: '@KENTNL/ReportVersions::Tiny'
+ version: 1.01
+ -
+ class: Dist::Zilla::Plugin::KwaliteeTests
+ name: '@KENTNL/KwaliteeTests'
+ version: 1.101420
+ -
+ class: Dist::Zilla::Plugin::PortabilityTests
+ name: '@KENTNL/PortabilityTests'
+ version: 1.101420
+ -
+ class: Dist::Zilla::Plugin::EOLTests
+ name: '@KENTNL/EOLTests'
+ version: 0.02
+ -
+ class: Dist::Zilla::Plugin::ExtraTests
+ name: '@KENTNL/ExtraTests'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::TestRelease
+ name: '@KENTNL/TestRelease'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::ConfirmRelease
+ name: '@KENTNL/ConfirmRelease'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::Git::Check
+ name: '@KENTNL/Git::Check'
+ version: 1.102040
+ -
+ class: Dist::Zilla::Plugin::NextRelease
+ name: '@KENTNL/NextRelease'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::Git::Tag
+ name: '@KENTNL/Git::Tag/tag_master'
+ version: 1.102040
+ -
+ class: Dist::Zilla::Plugin::Git::Commit
+ name: '@KENTNL/Git::Commit'
+ version: 1.102040
+ -
+ class: Dist::Zilla::Plugin::Git::CommitBuild
+ name: '@KENTNL/Git::CommitBuild'
+ version: 1.102040
+ -
+ class: Dist::Zilla::Plugin::Git::Tag
+ name: '@KENTNL/Git::Tag/tag_release'
+ version: 1.102040
+ -
+ class: Dist::Zilla::Plugin::UploadToCPAN
+ name: '@KENTNL/UploadToCPAN'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::Twitter
+ name: '@KENTNL/Twitter'
+ version: 0.008
+ -
+ class: Dist::Zilla::Plugin::Prereq
+ config:
+ Dist::Zilla::Plugin::Prereqs:
+ phase: runtime
+ type: requires
+ name: Prereq
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':InstallModules'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':TestFiles'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':ExecFiles'
+ version: 4.101900
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':ShareFiles'
+ version: 4.101900
+ zilla:
+ class: Dist::Zilla::Dist::Builder
+ config:
+ is_trial: 0
+ version: 4.101900
@@ -2,12 +2,13 @@ NAME
MooseX::Has::Sugar - Sugar Syntax for moose 'has' fields
VERSION
- version 0.0405
+ version 0.05044303
SYNOPSIS
Moose "has" syntax is generally fine, but sometimes one gets bothered
- with the constant typing of string quotes for things. MooseX::Types
- exists and in many ways reduces the need for constant string creation.
+ with the constant typing of string quotes for things. The MooseX::Types
+ module exists and in many ways reduces the need for constant string
+ creation.
Primary Benefits at a Glance
Reduced Typing in "has" declarations.
@@ -71,7 +72,7 @@ SYNOPSIS
Alternative Forms
Basic "is" Expansion Only
- ( using MooseX::Has::Sugar::Minimal instead )
+ ( using ::Sugar::Minimal instead )
use MooseX::Types::Moose qw( Str );
use MooseX::Has::Sugar::Minimal;
@@ -88,7 +89,7 @@ SYNOPSIS
);
Attribute Expansions with Basic Expansions
- ( Combining parts of this and MooseX::Has::Sugar::Minimal )
+ ( Combining parts of this and ::Sugar::Minimal )
use MooseX::Types::Moose qw( Str );
use MooseX::Has::Sugar::Minimal;
@@ -121,8 +122,7 @@ EXPORT GROUPS
ro,
);
- NOTE: This option is incompatible with MooseX::Has::Sugar::Minimal :
- "CONFLICTS"
+ NOTE: This option is incompatible with ::Sugar::Minimal : "CONFLICTS"
:attrs
This exports "lazy" , "lazy_build" and "required", "coerce", "weak_ref"
@@ -133,11 +133,11 @@ EXPORT GROUPS
isa => 'Str',
);
- NOTE: This option is incompatible with MooseX::Types and
- Moose::Util::TypeConstraints : "CONFLICTS"
+ NOTE: This option is incompatible with MooseX::Types and Moose's Type
+ Constraints Module : "CONFLICTS"
:is
- DEPRECATED. See MooseX::Has::Sugar::Minimal for the same functionality
+ DEPRECATED. See ::Sugar::Minimal for the same functionality
:allattrs
DEPRECATED, just use ":default" or do
@@ -170,7 +170,7 @@ EXPORTED FUNCTIONS
returns "('coerce',1)"
WARNING: Conflict with MooseX::Types and Moose::Util::TypeConstraints,
- see CONFLICTS.
+ see "CONFLICTS".
auto_deref
returns "('auto_deref',1)"
@@ -179,7 +179,7 @@ CONFLICTS
MooseX::Has::Sugar::Minimal
MooseX::Has::Sugar::Saccharin
This module is not intended to be used in conjunction with
- MooseX::Has::Sugar::Minimal or MooseX::Has::Sugar::Saccharin
+ ::Sugar::Minimal or ::Sugar::Saccharin
We export many of the same symbols and its just not very sensible.
@@ -199,10 +199,10 @@ CONFLICTS
MooseX::Has::Sugar(::*)? in the same scope )
AUTHOR
- Kent Fredric <kentnl at cpan.org>
+ Kent Fredric <kentnl at cpan.org>
COPYRIGHT AND LICENSE
- This software is copyright (c) 2009 by Kent Fredric.
+ This software is copyright (c) 2010 by Kent Fredric.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -1,57 +1,16 @@
name = MooseX-Has-Sugar
-version = 0.0405
+;version = 0.0405
author = Kent Fredric <kentnl at cpan.org>
license = Perl_5
copyright_holder = Kent Fredric
-[AllFiles]
-[PruneCruft]
-
-[Repository]
-
-[License]
-
-[PkgVersion]
-[PodWeaver]
-
-[MetaProvides::Package]
-
-[MetaYAML]
-[MetaJSON]
-
-[ModuleBuild]
-
-[ReadmeFromPod]
-
-
-[ManifestSkip]
-[Manifest]
-
-[CompileTests]
-[MetaTests]
-[PodTests]
-[ExtraTests]
-
-[Git::Check]
-filename = Changes
-
-[NextRelease]
-
-[Git::Tag]
-filename = Changes
-tag_format = %v-source
-
-[Git::Commit]
+[@KENTNL]
+version_major = 0
+version_minor = 5
+version_rel_year = 2009
+version_rel_month = 5
+version_rel_day = 15
+version_rel_hour = 19
+version_rel_time_zone = Pacific/Auckland
[Prereq]
-Test::More = 0
-Test::Exception = 0
-
-Moose = 0.84
-MooseX::Types = 0.10
-MooseX::Types::Moose = 0
-Sub::Exporter = 0
-namespace::autoclean = 0
-Carp = 0
-
-[UploadToCPAN]
@@ -2,9 +2,9 @@ use warnings;
use strict;
package MooseX::Has::Sugar::Minimal;
-our $VERSION = '0.0405';
-
-
+BEGIN {
+ $MooseX::Has::Sugar::Minimal::VERSION = '0.05044303';
+}
# ABSTRACT: Less Sugary Syntax for moose 'has' fields
@@ -49,12 +49,12 @@ MooseX::Has::Sugar::Minimal - Less Sugary Syntax for moose 'has' fields
=head1 VERSION
-version 0.0405
+version 0.05044303
=head1 SYNOPSIS
-This is a legacy variant of L<MooseX::Has::Sugar> which only exports C<ro>
-and C<rw> functions, the way L<MooseX::Has::Sugar> used to with C<:is>;
+This is a legacy variant of L<Sugar|MooseX::Has::Sugar> which only exports C<ro>
+and C<rw> functions, the way L<MooseX::Has::Sugar|MooseX::Has::Sugar> used to with C<:is>;
use MooseX::Types::Moose qw( Str );
use MooseX::Has::Sugar::Minimal;
@@ -70,7 +70,7 @@ and C<rw> functions, the way L<MooseX::Has::Sugar> used to with C<:is>;
lazy_build => 1,
);
-All functions are exported by L<Sub::Exporter>.
+All functions are exported by L<The Sub::Exporter Module|Sub::Exporter>.
=head1 EXPORT GROUPS
@@ -103,12 +103,12 @@ returns C<('rw')>
=head2 MooseX::Has::Sugar::Saccharin
This module is not intended to be used in conjunction with
- L<MooseX::Has::Sugar> or L<MooseX::Has::Sugar::Saccharin>.
+ L<::Sugar|MooseX::Has::Sugar> or L<::Sugar::Saccharin|MooseX::Has::Sugar::Saccharin>.
We all export L</ro> and L</rw> in different ways.
If you do however want to use them in conjunction, specific imports must
- be done on L<MooseX::Has::Sugar>'s side to stop it exporting different
+ be done on L<MooseX::Has::Sugar's|MooseX::Has::Sugar> side to stop it exporting different
ro/rw. Any of the below should be fine.
use MooseX::Has::Sugar::Minimal;
@@ -123,11 +123,11 @@ If you do however want to use them in conjunction, specific imports must
=head1 AUTHOR
- Kent Fredric <kentnl at cpan.org>
+Kent Fredric <kentnl at cpan.org>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2009 by Kent Fredric.
+This software is copyright (c) 2010 by Kent Fredric.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -2,9 +2,9 @@ use warnings;
use strict;
package MooseX::Has::Sugar::Saccharin;
-our $VERSION = '0.0405';
-
-
+BEGIN {
+ $MooseX::Has::Sugar::Saccharin::VERSION = '0.05044303';
+}
# ABSTRACT: Experimental sweetness
@@ -126,7 +126,7 @@ MooseX::Has::Sugar::Saccharin - Experimental sweetness
=head1 VERSION
-version 0.0405
+version 0.05044303
=head1 SYNOPSIS
@@ -223,7 +223,7 @@ like C<< ( coerce => 1, @rest ) >>
=head3 WARNING:
-Conflicts with L</MooseX::Types>
+Conflicts with L<< C<MooseX::Types's> C<coerce> method|MooseX::Types/coerce >>
=head2 auto_deref
@@ -285,7 +285,7 @@ Works exactly like default.
=head2 MooseX::Has::Sugar::Minimal
This module is not intended to be used in conjunction with
- L<MooseX::Has::Sugar> or L<MooseX::Has::Sugar::Minimal>
+ L<::Sugar|MooseX::Has::Sugar> or L<::Sugar::Minimal|MooseX::Has::Sugar::Minimal>
We export many of the same symbols and its just not very sensible.
@@ -315,11 +315,11 @@ As such, we can't have that keyword in that scenario.
=head1 AUTHOR
- Kent Fredric <kentnl at cpan.org>
+Kent Fredric <kentnl at cpan.org>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2009 by Kent Fredric.
+This software is copyright (c) 2010 by Kent Fredric.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -2,9 +2,9 @@ use warnings;
use strict;
package MooseX::Has::Sugar;
-our $VERSION = '0.0405';
-
-
+BEGIN {
+ $MooseX::Has::Sugar::VERSION = '0.05044303';
+}
# ABSTRACT: Sugar Syntax for moose 'has' fields
@@ -94,12 +94,12 @@ MooseX::Has::Sugar - Sugar Syntax for moose 'has' fields
=head1 VERSION
-version 0.0405
+version 0.05044303
=head1 SYNOPSIS
-L<Moose> C<has> syntax is generally fine, but sometimes one gets bothered with
-the constant typing of string quotes for things. L<MooseX::Types> exists and in
+L<Moose|Moose> C<has> syntax is generally fine, but sometimes one gets bothered with
+the constant typing of string quotes for things. L<The MooseX::Types module|MooseX::Types> exists and in
many ways reduces the need for constant string creation.
=head2 Primary Benefits at a Glance
@@ -173,7 +173,7 @@ Or even
=head3 Basic C<is> Expansion Only
-( using L<MooseX::Has::Sugar::Minimal> instead )
+( using L<::Sugar::Minimal|MooseX::Has::Sugar::Minimal> instead )
use MooseX::Types::Moose qw( Str );
use MooseX::Has::Sugar::Minimal;
@@ -191,7 +191,7 @@ Or even
=head3 Attribute Expansions with Basic Expansions
-( Combining parts of this and L<MooseX::Has::Sugar::Minimal> )
+( Combining parts of this and L<::Sugar::Minimal|MooseX::Has::Sugar::Minimal> )
use MooseX::Types::Moose qw( Str );
use MooseX::Has::Sugar::Minimal;
@@ -227,7 +227,7 @@ L</lazy> does.
ro,
);
-B<NOTE: This option is incompatible with L<MooseX::Has::Sugar::Minimal>> : L</CONFLICTS>
+B<NOTE: This option is incompatible with L<::Sugar::Minimal|MooseX::Has::Sugar::Minimal>> : L</CONFLICTS>
=head2 :attrs
@@ -239,11 +239,11 @@ and L</auto_deref> as subs that assume positive.
isa => 'Str',
);
-B<NOTE: This option is incompatible with L<MooseX::Types> and L<Moose::Util::TypeConstraints>> : L</CONFLICTS>
+B<NOTE: This option is incompatible with L<MooseX::Types|MooseX::Types> and L<Moose's Type Constraints Module|Moose::Util::TypeConstraints>> : L</CONFLICTS>
=head2 :is
-B<DEPRECATED>. See L<MooseX::Has::Sugar::Minimal> for the same functionality
+B<DEPRECATED>. See L<::Sugar::Minimal|MooseX::Has::Sugar::Minimal> for the same functionality
=head2 :allattrs
@@ -285,7 +285,7 @@ returns C<('weak_ref',1)>
returns C<('coerce',1)>
-B<WARNING:> Conflict with L<MooseX::Types> and L<Moose::Util::TypeConstraints>, see L<CONFLICTS>.
+B<WARNING:> Conflict with L<MooseX::Types|MooseX::Types> and L<Moose::Util::TypeConstraints|Moose::Util::TypeConstraints>, see L</CONFLICTS>.
=head2 auto_deref
@@ -298,7 +298,7 @@ returns C<('auto_deref',1)>
=head2 MooseX::Has::Sugar::Saccharin
This module is not intended to be used in conjunction with
- L<MooseX::Has::Sugar::Minimal> or L<MooseX::Has::Sugar::Saccharin>
+ L<::Sugar::Minimal|MooseX::Has::Sugar::Minimal> or L<::Sugar::Saccharin|MooseX::Has::Sugar::Saccharin>
We export many of the same symbols and its just not very sensible.
@@ -319,11 +319,11 @@ We recommend using and creating proper type libraries instead, ( which will abso
=head1 AUTHOR
- Kent Fredric <kentnl at cpan.org>
+Kent Fredric <kentnl at cpan.org>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2009 by Kent Fredric.
+This software is copyright (c) 2010 by Kent Fredric.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -5,6 +5,7 @@ use warnings;
use Test::More;
use File::Find;
+use File::Temp qw{ tempdir };
my @modules;
find(
@@ -22,17 +23,23 @@ find(
my @scripts = glob "bin/*";
-plan tests => scalar(@modules) + scalar(@scripts);
-
-is( qx{ $^X -Ilib -M$_ -e "print '$_ ok'" }, "$_ ok", "$_ loaded ok" )
- for sort @modules;
-
-SKIP: {
- eval "use Test::Script; 1;";
- skip "Test::Script needed to test script compilation", scalar(@scripts) if $@;
- foreach my $file ( @scripts ) {
- my $script = $file;
- $script =~ s!.*/!!;
- script_compiles_ok( $file, "$script script compiles" );
+my $plan = scalar(@modules) + scalar(@scripts);
+$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run");
+
+{
+ # fake home for cpan-testers
+ # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 );
+
+ like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" )
+ for sort @modules;
+
+ SKIP: {
+ eval "use Test::Script 1.05; 1;";
+ skip "Test::Script needed to test script compilation", scalar(@scripts) if $@;
+ foreach my $file ( @scripts ) {
+ my $script = $file;
+ $script =~ s!.*/!!;
+ script_compiles( $file, "$script script compiles" );
+ }
}
-}
\ No newline at end of file
+}
@@ -0,0 +1,80 @@
+use strict;
+use warnings;
+use Test::More 0.88;
+# This is a relatively nice way to avoid Test::NoWarnings breaking our
+# expectations by adding extra tests, without using no_plan. It also helps
+# avoid any other test module that feels introducing random tests, or even
+# test plans, is a nice idea.
+our $success = 0;
+END { $success && done_testing; }
+
+my $v = "\n";
+
+eval { # no excuses!
+ # report our Perl details
+ my $want = "any version";
+ my $pv = ($^V || $]);
+ $v .= "perl: $pv (wanted $want) on $^O from $^X\n\n";
+};
+defined($@) and diag("$@");
+
+# Now, our module version dependencies:
+sub pmver {
+ my ($module, $wanted) = @_;
+ $wanted = " (want $wanted)";
+ my $pmver;
+ eval "require $module;";
+ if ($@) {
+ if ($@ =~ m/Can't locate .* in \@INC/) {
+ $pmver = 'module not found.';
+ } else {
+ diag("${module}: $@");
+ $pmver = 'died during require.';
+ }
+ } else {
+ my $version;
+ eval { $version = $module->VERSION; };
+ if ($@) {
+ diag("${module}: $@");
+ $pmver = 'died during VERSION check.';
+ } elsif (defined $version) {
+ $pmver = "$version";
+ } else {
+ $pmver = '<undef>';
+ }
+ }
+
+ # So, we should be good, right?
+ return sprintf('%-40s => %-10s%-15s%s', $module, $pmver, $wanted, "\n");
+}
+
+eval { $v .= pmver('Carp','any version') };
+eval { $v .= pmver('File::Find','any version') };
+eval { $v .= pmver('File::Temp','any version') };
+eval { $v .= pmver('FindBin','any version') };
+eval { $v .= pmver('Module::Build','0.3601') };
+eval { $v .= pmver('Moose','any version') };
+eval { $v .= pmver('Sub::Exporter','any version') };
+eval { $v .= pmver('Test::Exception','any version') };
+eval { $v .= pmver('Test::More','0.88') };
+eval { $v .= pmver('namespace::autoclean','any version') };
+
+
+
+# All done.
+$v .= <<'EOT';
+
+Thanks for using my code. I hope it works for you.
+If not, please try and include this output in the bug report.
+That will help me reproduce the issue and solve you problem.
+
+EOT
+
+diag($v);
+ok(1, "we really didn't test anything, just reporting data");
+$success = 1;
+
+# Work around another nasty module on CPAN. :/
+no warnings 'once';
+$Template::Test::NO_FLUSH = 1;
+exit 0;
@@ -1,28 +0,0 @@
-package AMinimal;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-use strict;
-use warnings;
-
-use Moose;
-use MooseX::Has::Sugar::Minimal;
-use namespace::autoclean;
-
-sub ro_generated { { isa => 'Str', is => ro, } }
-
-sub ro_manual { { isa => 'Str', is => 'ro', } }
-
-sub rw_generated { { isa => 'Str', is => rw, } }
-
-sub rw_manual { { isa => 'Str', is => 'rw', } }
-
-sub bare_generated { { isa => 'Str', is => bare, } }
-
-sub bare_manual { { isa => 'Str', is => 'bare', } }
-
-__PACKAGE__->meta->make_immutable;
-1;
-
@@ -1,23 +0,0 @@
-package BDeclare;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-use strict;
-use warnings;
-use Moose;
-use MooseX::Has::Sugar;
-use namespace::autoclean;
-
-sub generated {
- { isa => 'Str', is => 'ro', required, lazy, lazy_build, coerce, weak_ref, auto_deref };
-}
-
-sub manual {
- { isa => 'Str', is => 'ro', required => 1, lazy => 1, lazy_build => 1, coerce => 1, weak_ref => 1, auto_deref => 1, };
-}
-
-__PACKAGE__->meta->make_immutable;
-1;
-
@@ -1,19 +0,0 @@
-package CDeclareRo;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-use strict;
-use warnings;
-use Moose;
-use MooseX::Has::Sugar;
-use namespace::autoclean;
-
-sub generated { { isa => 'Str', ro, } }
-
-sub manual { { isa => 'Str', is => 'ro', } }
-
-__PACKAGE__->meta->make_immutable;
-1;
-
@@ -1,35 +0,0 @@
-package DEverything;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-use strict;
-use warnings;
-use Moose;
-use MooseX::Has::Sugar;
-use namespace::autoclean;
-
-sub generated {
- {
- isa => 'Str',
- ro, required, lazy, lazy_build, coerce, weak_ref, auto_deref
- };
-}
-
-sub manual {
- {
- isa => 'Str',
- is => 'ro',
- required => 1,
- lazy => 1,
- lazy_build => 1,
- coerce => 1,
- weak_ref => 1,
- auto_deref => 1,
- };
-}
-
-__PACKAGE__->meta->make_immutable;
-1;
-
@@ -1,37 +0,0 @@
-package EMixed;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-use strict;
-use warnings;
-use Moose;
-use MooseX::Has::Sugar::Minimal;
-use MooseX::Has::Sugar qw( :attrs );
-use namespace::autoclean;
-
-sub generated {
- {
- isa => 'Str',
- is => ro,
- required, lazy, lazy_build, coerce, weak_ref, auto_deref
- };
-}
-
-sub manual {
- {
- isa => 'Str',
- is => 'ro',
- required => 1,
- lazy => 1,
- lazy_build => 1,
- coerce => 1,
- weak_ref => 1,
- auto_deref => 1,
- };
-}
-
-__PACKAGE__->meta->make_immutable;
-1;
-
@@ -1,56 +0,0 @@
-package TestCant;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-use strict;
-use warnings;
-use Test::More ();
-use Sub::Exporter ();
-use namespace::autoclean;
-
-Sub::Exporter::setup_exporter(
- {
- exports => ['can_unok'],
- groups => { default => ['can_unok'] },
- }
-);
-
-# Sniped from Test::More;
-sub can_unok($@) {
- my ( $proto, @methods ) = @_;
- my $class = ref $proto || $proto;
- my $tb = Test::More->builder;
-
- unless ($class) {
- my $ok = $tb->ok( 0, "! ->can(...)" );
- $tb->diag(' can_unok() called with empty class or reference');
- return $ok;
- }
-
- unless (@methods) {
- my $ok = $tb->ok( 0, "$class->can(...)" );
- $tb->diag(' can_unok() called with no methods');
- return $ok;
- }
-
- my @nok = ();
- foreach my $method (@methods) {
- $tb->_try( sub { !$proto->can($method) } ) or push @nok, $method;
- }
-
- my $name =
- ( @methods == 1 )
- ? "!$class->can('$methods[0]')"
- : "!$class->can(...)";
-
- my $ok = $tb->ok( !@nok, $name );
-
- $tb->diag( map " !$class->can('$_') failed\n", @nok );
-
- return $ok;
-}
-
-1;
-
@@ -3,38 +3,39 @@ use warnings;
use Test::More tests => 12; # last test to print
use FindBin;
-use lib "$FindBin::Bin/04_values";
-use TestCant;
+use lib "$FindBin::Bin/lib";
-use AMinimal;
+use T4Values::TestCant;
-is_deeply( AMinimal->ro_generated, AMinimal->ro_manual, 'Simple Expansion ro' );
-is_deeply( AMinimal->rw_generated, AMinimal->rw_manual, 'Simple Expansion rw' );
-is_deeply( AMinimal->bare_generated, AMinimal->bare_manual, 'Simple Expansion bare' );
+use T4Values::AMinimal;
-can_unok( 'AMinimal', qw( ro rw required lazy lazy_build coerce weak_ref auto_deref ) );
+is_deeply( T4Values::AMinimal->ro_generated, T4Values::AMinimal->ro_manual, 'Simple Expansion ro' );
+is_deeply( T4Values::AMinimal->rw_generated, T4Values::AMinimal->rw_manual, 'Simple Expansion rw' );
+is_deeply( T4Values::AMinimal->bare_generated, T4Values::AMinimal->bare_manual, 'Simple Expansion bare' );
-use BDeclare;
+can_unok( 'T4Values::AMinimal', qw( ro rw required lazy lazy_build coerce weak_ref auto_deref ) );
-is_deeply( BDeclare->generated, BDeclare->manual, 'Attr Expansion' );
+use T4Values::BDeclare;
-can_unok( 'BDeclare', qw( ro rw required lazy lazy_build coerce weak_ref auto_deref ) );
+is_deeply( T4Values::BDeclare->generated, T4Values::BDeclare->manual, 'Attr Expansion' );
-use CDeclareRo;
+can_unok( 'T4Values::BDeclare', qw( ro rw required lazy lazy_build coerce weak_ref auto_deref ) );
-is_deeply( CDeclareRo->generated, CDeclareRo->manual, 'is Attr Expansion' );
+use T4Values::CDeclareRo;
-can_unok( 'CDeclareRo', qw( ro rw required lazy lazy_build coerce weak_ref auto_deref ) );
+is_deeply( T4Values::CDeclareRo->generated, T4Values::CDeclareRo->manual, 'is Attr Expansion' );
-use DEverything;
+can_unok( 'T4Values::CDeclareRo', qw( ro rw required lazy lazy_build coerce weak_ref auto_deref ) );
-is_deeply( DEverything->generated, DEverything->manual, 'All Attr Expansion' );
+use T4Values::DEverything;
-can_unok( 'DEverything', qw( ro rw required lazy lazy_build coerce weak_ref auto_deref ) );
+is_deeply( T4Values::DEverything->generated, T4Values::DEverything->manual, 'All Attr Expansion' );
-use EMixed;
+can_unok( 'T4Values::DEverything', qw( ro rw required lazy lazy_build coerce weak_ref auto_deref ) );
-is_deeply( EMixed->generated, EMixed->manual, 'Mixed Attr Expansion' );
+use T4Values::EMixed;
-can_unok( 'EMixed', qw( ro rw required lazy lazy_build coerce weak_ref auto_deref ) );
+is_deeply( T4Values::EMixed->generated, T4Values::EMixed->manual, 'Mixed Attr Expansion' );
+
+can_unok( 'T4Values::EMixed', qw( ro rw required lazy lazy_build coerce weak_ref auto_deref ) );
@@ -1,23 +0,0 @@
-package TestPackage;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-use strict;
-use warnings;
-use Moose;
-use namespace::autoclean;
-
-use MooseX::Has::Sugar::Minimal;
-
-has roattr => ( isa => 'Str', is => ro, required => 1, );
-
-has rwattr => ( isa => 'Str', is => rw, required => 1, );
-
-has bareattr => ( isa => 'Str', is => bare, required => 1, );
-
-__PACKAGE__->meta->make_immutable;
-
-1;
-
@@ -5,12 +5,12 @@ use warnings;
use Test::More tests => 9; # last test to print
use Test::Exception;
use FindBin;
-use lib "$FindBin::Bin/05_is";
+use lib "$FindBin::Bin/lib";
-use TestPackage;
+use T5Is::TestPackage;
sub cr {
- return TestPackage->new(@_);
+ return T5Is::TestPackage->new(@_);
}
pass("Syntax Compiles");
@@ -1,23 +0,0 @@
-package TestPackage;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-use strict;
-use warnings;
-use Moose;
-use namespace::autoclean;
-
-use MooseX::Has::Sugar;
-
-has roattr => ( isa => 'Str', is => 'ro', required, );
-
-has rwattr => ( isa => 'Str', is => 'rw', required, );
-
-has bareattr => ( isa => 'Str', is => 'bare', required, );
-
-__PACKAGE__->meta->make_immutable;
-
-1;
-
@@ -5,13 +5,13 @@ use warnings;
use Test::More tests => 9; # last test to print
use Test::Exception;
use FindBin;
-use lib "$FindBin::Bin/06_attr_required";
+use lib "$FindBin::Bin/lib";
-use TestPackage;
+use T6AttrRequired::TestPackage;
pass("Syntax Compiles");
-sub cr { return TestPackage->new(@_) }
+sub cr { return T6AttrRequired::TestPackage->new(@_) }
for ( {}, { roattr => "v" }, { rwattr => "v" }, { bareattr => 'v' } ) {
dies_ok( sub { cr( %{$_} ) }, 'Constraints on requirements still work' );
@@ -1,29 +0,0 @@
-package TestPackage;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-use strict;
-use warnings;
-use Moose;
-use namespace::autoclean;
-
-use MooseX::Has::Sugar;
-
-has roattr => ( isa => 'Str', is => 'ro', lazy_build, );
-
-has rwattr => ( isa => 'Str', is => 'rw', lazy_build, );
-
-sub _build_rwattr {
- return 'y';
-}
-
-sub _build_roattr {
- return 'y';
-}
-
-__PACKAGE__->meta->make_immutable;
-
-1;
-
@@ -6,12 +6,12 @@ use Test::More tests => 7; # last test to print
use Test::Exception;
use FindBin;
-use lib "$FindBin::Bin/07_attr_lazy_build";
+use lib "$FindBin::Bin/lib";
-use TestPackage;
+use T7AttrLazyBuild::TestPackage;
sub cr {
- return TestPackage->new();
+ return T7AttrLazyBuild::TestPackage->new();
}
pass("Syntax Compiles");
@@ -1,30 +0,0 @@
-package TestPackage;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-use strict;
-use warnings;
-use Moose;
-use namespace::autoclean;
-
-use MooseX::Has::Sugar::Saccharin;
-use MooseX::Types::Moose (':all');
-
-has roattr => lazy_build ro Str;
-
-has rwattr => lazy_build rw Str;
-
-sub _build_rwattr {
- return 'y';
-}
-
-sub _build_roattr {
- return 'y';
-}
-
-__PACKAGE__->meta->make_immutable;
-
-1;
-
@@ -5,12 +5,12 @@ use warnings;
use Test::More tests => 7; # last test to print
use Test::Exception;
use FindBin;
-use lib "$FindBin::Bin/08_saccharin";
+use lib "$FindBin::Bin/lib";
-use TestPackage;
+use T8Saccharin::TestPackage;
sub cr {
- return TestPackage->new();
+ return T8Saccharin::TestPackage->new();
}
pass("Syntax Compiles");
@@ -1,42 +0,0 @@
-package TestPackage;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-use strict;
-use warnings;
-use Moose;
-use MooseX::Types::Moose (':all');
-use MooseX::Has::Sugar::Saccharin;
-use namespace::autoclean;
-
-sub Alpha {
- return {
- orig => { 'isa' => Str, 'required' => 1, 'is' => 'rw' },
- mx => { required rw Str },
- };
-}
-
-sub Beta {
- return {
- orig => { 'isa' => Str, 'required' => 1, 'is' => 'rw' },
- mx => { rw Str, required },
- };
-}
-
-sub Gamma {
- return {
- orig => {
- 'isa' => Str,
- 'is' => 'rw',
- default => sub {
- return 1;
- }
- },
- mx => { rw Str, default { 1 } },
- };
-}
-
-1;
-
@@ -3,11 +3,12 @@ use warnings;
use Test::More tests => 3; # last test to print
use FindBin;
-use lib "$FindBin::Bin/09_saccharin";
+use lib "$FindBin::Bin/lib";
-use TestPackage;
+use T9Saccharin::TestPackage;
-is_deeply( TestPackage->Alpha->{orig}, TestPackage->Alpha->{mx}, 'Basic Use Case', );
-is_deeply( TestPackage->Beta->{orig}, TestPackage->Beta->{mx}, 'Order Invert', );
-is_deeply( TestPackage->Gamma->{orig}->{default}->(), TestPackage->Gamma->{mx}->{default}->(), 'Subs', );
+is_deeply( T9Saccharin::TestPackage->Alpha->{orig}, T9Saccharin::TestPackage->Alpha->{mx}, 'Basic Use Case', );
+is_deeply( T9Saccharin::TestPackage->Beta->{orig}, T9Saccharin::TestPackage->Beta->{mx}, 'Order Invert', );
+is_deeply( T9Saccharin::TestPackage->Gamma->{orig}->{default}->(), T9Saccharin::TestPackage->Gamma->{mx}->{default}->(), 'Subs',
+);
@@ -1,13 +0,0 @@
-
-BEGIN {
- unless ($ENV{AUTHOR_TESTING}) {
- require Test::More;
- Test::More::plan(skip_all => 'these tests are for testing by the author');
- }
-}
-
-use strict;
-use warnings;
-
-use Test::Perl::Critic( -profile => 'perlcriticrc' );
-all_critic_ok();
\ No newline at end of file
@@ -1,14 +0,0 @@
-
-BEGIN {
- unless ($ENV{AUTHOR_TESTING}) {
- require Test::More;
- Test::More::plan(skip_all => 'these tests are for testing by the author');
- }
-}
-
-
-use strict;
-use warnings;
-
-use Test::More;
-use Test::Kwalitee;
\ No newline at end of file
@@ -0,0 +1,23 @@
+package T4Values::AMinimal;
+
+# $Id:$
+use strict;
+use warnings;
+
+use MooseX::Has::Sugar::Minimal;
+use namespace::autoclean;
+
+sub ro_generated { { isa => 'Str', is => ro, } }
+
+sub ro_manual { { isa => 'Str', is => 'ro', } }
+
+sub rw_generated { { isa => 'Str', is => rw, } }
+
+sub rw_manual { { isa => 'Str', is => 'rw', } }
+
+sub bare_generated { { isa => 'Str', is => bare, } }
+
+sub bare_manual { { isa => 'Str', is => 'bare', } }
+
+1;
+
@@ -0,0 +1,19 @@
+package T4Values::BDeclare;
+
+# $Id:$
+use strict;
+use warnings;
+use MooseX::Has::Sugar;
+use namespace::autoclean;
+
+
+sub generated {
+ { isa => 'Str', is => 'ro', required, lazy, lazy_build, coerce, weak_ref, auto_deref };
+}
+
+sub manual {
+ { isa => 'Str', is => 'ro', required => 1, lazy => 1, lazy_build => 1, coerce => 1, weak_ref => 1, auto_deref => 1, };
+}
+
+1;
+
@@ -0,0 +1,14 @@
+package T4Values::CDeclareRo;
+
+# $Id:$
+use strict;
+use warnings;
+use MooseX::Has::Sugar;
+use namespace::autoclean;
+
+sub generated { { isa => 'Str', ro, } }
+
+sub manual { { isa => 'Str', is => 'ro', } }
+
+1;
+
@@ -0,0 +1,30 @@
+package T4Values::DEverything;
+
+# $Id:$
+use strict;
+use warnings;
+use MooseX::Has::Sugar;
+use namespace::autoclean;
+
+sub generated {
+ {
+ isa => 'Str',
+ ro, required, lazy, lazy_build, coerce, weak_ref, auto_deref
+ };
+}
+
+sub manual {
+ {
+ isa => 'Str',
+ is => 'ro',
+ required => 1,
+ lazy => 1,
+ lazy_build => 1,
+ coerce => 1,
+ weak_ref => 1,
+ auto_deref => 1,
+ };
+}
+
+1;
+
@@ -0,0 +1,32 @@
+package T4Values::EMixed;
+
+# $Id:$
+use strict;
+use warnings;
+use MooseX::Has::Sugar::Minimal;
+use MooseX::Has::Sugar qw( :attrs );
+use namespace::autoclean;
+
+sub generated {
+ {
+ isa => 'Str',
+ is => ro,
+ required, lazy, lazy_build, coerce, weak_ref, auto_deref
+ };
+}
+
+sub manual {
+ {
+ isa => 'Str',
+ is => 'ro',
+ required => 1,
+ lazy => 1,
+ lazy_build => 1,
+ coerce => 1,
+ weak_ref => 1,
+ auto_deref => 1,
+ };
+}
+
+1;
+
@@ -0,0 +1,53 @@
+package T4Values::TestCant;
+
+# $Id:$
+use strict;
+use warnings;
+use Test::More ();
+use Sub::Exporter ();
+use namespace::autoclean;
+
+Sub::Exporter::setup_exporter(
+ {
+ exports => ['can_unok'],
+ groups => { default => ['can_unok'] },
+ }
+);
+
+# Sniped from Test::More;
+sub can_unok($@) {
+ my ( $proto, @methods ) = @_;
+ my $class = ref $proto || $proto;
+ my $tb = Test::More->builder;
+
+ unless ($class) {
+ my $ok = $tb->ok( 0, "! ->can(...)" );
+ $tb->diag(' can_unok() called with empty class or reference');
+ return $ok;
+ }
+
+ unless (@methods) {
+ my $ok = $tb->ok( 0, "$class->can(...)" );
+ $tb->diag(' can_unok() called with no methods');
+ return $ok;
+ }
+
+ my @nok = ();
+ foreach my $method (@methods) {
+ $tb->_try( sub { !$proto->can($method) } ) or push @nok, $method;
+ }
+
+ my $name =
+ ( @methods == 1 )
+ ? "!$class->can('$methods[0]')"
+ : "!$class->can(...)";
+
+ my $ok = $tb->ok( !@nok, $name );
+
+ $tb->diag( map " !$class->can('$_') failed\n", @nok );
+
+ return $ok;
+}
+
+1;
+
@@ -0,0 +1,20 @@
+package T5Is::TestPackage;
+
+# $Id:$
+use strict;
+use warnings;
+use Moose;
+use namespace::autoclean;
+
+use MooseX::Has::Sugar::Minimal;
+
+has roattr => ( isa => 'Str', is => ro, required => 1, );
+
+has rwattr => ( isa => 'Str', is => rw, required => 1, );
+
+has bareattr => ( isa => 'Str', is => bare, required => 1, );
+
+__PACKAGE__->meta->make_immutable;
+
+1;
+
@@ -0,0 +1,20 @@
+package T6AttrRequired::TestPackage;
+
+# $Id:$
+use strict;
+use warnings;
+use Moose;
+use namespace::autoclean;
+
+use MooseX::Has::Sugar;
+
+has roattr => ( isa => 'Str', is => 'ro', required, );
+
+has rwattr => ( isa => 'Str', is => 'rw', required, );
+
+has bareattr => ( isa => 'Str', is => 'bare', required, );
+
+__PACKAGE__->meta->make_immutable;
+
+1;
+
@@ -0,0 +1,26 @@
+package T7AttrLazyBuild::TestPackage;
+
+# $Id:$
+use strict;
+use warnings;
+use Moose;
+use namespace::autoclean;
+
+use MooseX::Has::Sugar;
+
+has roattr => ( isa => 'Str', is => 'ro', lazy_build, );
+
+has rwattr => ( isa => 'Str', is => 'rw', lazy_build, );
+
+sub _build_rwattr {
+ return 'y';
+}
+
+sub _build_roattr {
+ return 'y';
+}
+
+__PACKAGE__->meta->make_immutable;
+
+1;
+
@@ -0,0 +1,26 @@
+package T8Saccharin::TestPackage;
+
+# $Id:$
+use strict;
+use warnings;
+use Moose;
+use namespace::autoclean;
+
+use MooseX::Has::Sugar::Saccharin;
+
+has roattr => lazy_build ro 'Str';
+
+has rwattr => lazy_build rw 'Str';
+
+sub _build_rwattr {
+ return 'y';
+}
+
+sub _build_roattr {
+ return 'y';
+}
+
+__PACKAGE__->meta->make_immutable;
+
+1;
+
@@ -0,0 +1,38 @@
+package T9Saccharin::TestPackage;
+
+# $Id:$
+use strict;
+use warnings;
+
+use MooseX::Has::Sugar::Saccharin;
+use namespace::autoclean;
+
+sub Alpha {
+ return {
+ orig => { 'isa' => 'Str', 'required' => 1, 'is' => 'rw' },
+ mx => { required rw 'Str' },
+ };
+}
+
+sub Beta {
+ return {
+ orig => { 'isa' => 'Str', 'required' => 1, 'is' => 'rw' },
+ mx => { rw 'Str', required },
+ };
+}
+
+sub Gamma {
+ return {
+ orig => {
+ 'isa' => 'Str',
+ 'is' => 'rw',
+ default => sub {
+ return 1;
+ }
+ },
+ mx => { rw 'Str', default { 1 } },
+ };
+}
+
+1;
+
@@ -1,58 +0,0 @@
-package TestClean;
-our $VERSION = '0.0405';
-
-
-
-# $Id:$
-my $CLASS = __PACKAGE__;
-use base 'Test::Builder::Module';
-@EXPORT = qw( is_clean );
-
-sub pp {
- require Data::Dumper;
- local $Data::Dumper::Terse = 1;
- local $Data::Dumper::Useqq = 1;
- local $Data::Dumper::Indent = 0;
- return Data::Dumper::Dumper(shift);
-}
-
-sub is_clean($;$) {
- my $file = shift;
- my $msg = shift;
- $msg ||= "Cleanlyness for $file";
- my $tb = $CLASS->builder;
- my $fh;
- my $o;
- if ( not open $fh, '<', $file ) {
- my $o = $tb->ok( 0, $msg );
- $tb->diag("Loading $file Failed");
- return $o;
- }
- while ( my $line = <$fh> ) {
-
- # Tailing Whitespace is pesky
- if ( $line =~ qr/\h$/m ) {
- $o = $tb->ok( 0, $msg ) unless $o;
- $tb->diag( "\n\n\\h found on end of line $. in $file\n" . pp($line) . "\n" );
- }
-
- # Tabs are teh satan.
- if ( $line =~ qr/\t/m ) {
- $o = $tb->ok( 0, $msg ) unless $o;
- $tb->diag( "\\t found in line $. in $file\n" . pp($line) . "\n" );
- }
-
- # Perltidyness in teh comments
- if ( $line =~ qr/[)][{]/ ) {
- $o = $tb->ok( 0, $msg ) unless $o;
- $tb->diag( ')' . "{ found in line $. in $file\n" . pp($line) . "\n" );
- }
- }
- close $fh;
- if ($o) {
- return $o;
- }
- return $tb->ok( 1, $msg );
-}
-
-1;
@@ -0,0 +1,15 @@
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+use strict;
+use warnings;
+use Test::More;
+
+eval "use Test::Perl::Critic( -profile => 'perlcriticrc' );";
+plan skip_all => "Test::Perl::Critic required for testing Against Policy" if $@;
+all_critic_ok();
@@ -0,0 +1,15 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+
+use Test::More;
+
+eval "use Test::CPAN::Meta";
+plan skip_all => "Test::CPAN::Meta required for testing META.yml" if $@;
+meta_yaml_ok();
@@ -0,0 +1,16 @@
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+use strict;
+use warnings;
+use Test::More;
+
+eval 'use Test::EOL';
+plan skip_all => 'Test::EOL required' if $@;
+
+all_perl_files_ok({ trailing_whitespace => 1 });
@@ -0,0 +1,15 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+
+use Test::More;
+
+eval "use Test::Kwalitee";
+plan skip_all => "Test::Kwalitee required for testing kwalitee"
+ if $@;
@@ -1,15 +0,0 @@
-#!perl
-
-BEGIN {
- unless ($ENV{RELEASE_TESTING}) {
- require Test::More;
- Test::More::plan(skip_all => 'these tests are for release candidate testing');
- }
-}
-
-
-use Test::More;
-
-eval "use Test::CPAN::Meta";
-plan skip_all => "Test::CPAN::Meta required for testing META.yml" if $@;
-meta_yaml_ok();
\ No newline at end of file
@@ -18,4 +18,4 @@ eval "use Pod::Coverage::TrustPod";
plan skip_all => "Pod::Coverage::TrustPod required for testing POD coverage"
if $@;
-all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' });
\ No newline at end of file
+all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' });
@@ -9,7 +9,7 @@ BEGIN {
use Test::More;
-eval "use Test::Pod 1.00";
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+eval "use Test::Pod 1.41";
+plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
-all_pod_files_ok();
\ No newline at end of file
+all_pod_files_ok();
@@ -0,0 +1,16 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+
+use Test::More;
+
+eval "use Test::Portability::Files";
+plan skip_all => "Test::Portability::Files required for testing portability"
+ if $@;
+run_tests();